﻿Public Class IstGenelPEKOrtalama
	Inherits ProcessReport

	Dim yasa, yil As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Genel aylık PEK ortalaması", "Yılı girin.")
				yasa = AddCombo("yasa", "Yasa", "SGY,Sosyal Güvenlik|SSY,Sosyal Sigortalar", "width=15", "SGY", "Yasayı seçmek zorundasınız.")
				yil = AddCombo("yil", "Yıl", "2008|2009|2010|2011|2012|2013", "nl", Today.Year, "Yılı girmek zorundasınız.")
			Case EventType.ValidateForm
				Rs = Istatistik.PEKOrtalama(Remote, yasa.Get, CDate(yil.Get & "/03/01"), CDate(yil.Get & "/06/01"), CDate(yil.Get & "/09/01"))
				e.Result = True
			Case EventType.PageHeader
				Report.PrintReportInfo("GENEL AYLIK PRİME ESAS KAZANÇ ORTALAMASI", If(yasa = "SGY", "SOSYAL GÜVENLİK YASASI", "SOSYAL SİGORTALAR YASASI"))
			Case EventType.ReportDetail
				Report.SetColumns("Tarih;Kişi Sayısı;PEK Toplamı;PÖGS Toplamı;Ortalama PEK", "1;1;1;1;1", "d;n;m;n;m", "")
				Do Until Rs.EOF
					Report.Print(Rs("bordrotar"), Rs("adet"), Rs("pek"), Rs("pogs"), Rs("ortpek"))
					Rs.MoveNext()
				Loop
				Report.PrintTotal("<cs=4>Genel aylık prime esas kazanç ortalaması", Rs.Avg("ortpek"))
		End Select
	End Sub

End Class
